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TITLE 

TYPE 

NUMBER OF WORDS 

TEMPORARY STORAGE 

DURATION 

READ AROUND 

PARAMETERS 



DESCRIPTION 



Zero Suppxtsssioa Integer Print (DOI or SADOl) 
Qlosed with\ one program parameter 

k words at 0, 1, 2, 3 

Punching Time 

Negligible 

TOie routine is called into use by 

50 nF 'JO nf 

50 pF or 50 pf 



p+1 26 — F 26 —I 

according as a sign is or is not desire<tt 
This routine will print the contents of fy» as an 
integer with or without a sign to n placejs where 
2 < n < 11. Zeros will be suppressed on the 
left unless the number is zero, when the last 
zero is printed . One space is punched after the 
number. If more spaces are desired when n < 11, 
it is only necessary to increase n. 



— m-. 1/&/& 

DAT E October 16, 1952 
CODED B Y D.J. Wheeler 



APPROVED BY J. P. Nash 



lgr 



LOCATION 


ORDER 


HOTBS PAGE 1 P 





po k(pM 

40 F 




Btore N 


i 


4l 2F 




Clear 2F 


1 


S5 F 


! 






46 2F 




Set up link and count 

a 


2 


L4 26L J 


1 




42 23L 






y ! 


36 6L 
L5 F 


! 

! 


! 

1 


4 


52 5L 


1 






92 706F 




- sign 


5 


2.6 6L 




I 




92 642F 


From 5L 


+ sign 


6 


50 26L 


From 3L 






75 24l 


From 8L 




7 


L5 2F 
LO 25L 


• 


n -39 
Generate 10 x 2 


8 


40 2F 
32 6L 






9 


L4 26L 
42 2F 






10 


S5 F 








40 IF 




J 


11 


19 38F 

40 3F 






12 


L7 F 








50 L 




Roundoff 


13 


66 IF 




|N|/lO n to Q 




75 24l 


From 10 


Multiply by 10 


14 


LO 3F 




Test for zero 




32 16L 




If 4 0, to print 


15 


00 IF 
92 96IF 




Shift left 1 and punch a space 


16 


26 19L 
L-4 3F 


From 14 


-39 
Add back 2 ^ 


17 


00 36F 




Shift 36 











LOCATION 
18 

19 
20 
21 
22 

23 
2k 

25 
26 



ORDER 
32, 4F 
10 iK)F 
lH 3F 
L5 2F 
L^ 26L 
42 2F 
32 13L 
75 2^L 
00 36F 
82 4F 
92 96lF 
32 23L 
22 ( )F 
00 F 
00 10F 
00 IF 
00 IF 
80 F- 
00 IF 



NOTES 



PAGE 2 



pT 



From l6 



By 2L 



Punch 1 character and shift k 
Shift back kO 
Clear 3F to 

Count 

Reenter loop if next to last step 

Last step always 

Punch 

Punch 1 character (last) 

Space 

Waste order 

Link 



